local telageral, opcao
while .t.
 legal(11,10,18,45,'Tabelas Auxiliares','Esc-Sai')
 @ 13,12 prompt ' 1 - Terceiros                 '
 @ 14,12 prompt ' 2 - Faturamento Administracao '
 @ 15,12 prompt ' 3 - Faturamento Seguranca     '
 telageral = savescreen(3,0,24,80)
 menu to opcao
 do case
    case opcao = 1
         do ecliente
         exit
    case opcao = 2
         do eadmini
         exit
    case opcao = 3
         do esegura
         exit  
    case lastkey() = 27 .or. opcao = 0
         exit
 endcase
 restscreen(3,0,24,80,telageral)
enddo

